Sub Test()'ִԤıǩ
    On Error GoTo zyg365    

    '롭
     
    Exit Sub

zyg365:
    MsgBox "*******Ҫ趨ʾϢݣ", 16, "ϵͳ"
End Sub
